home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Libraries / Sherlock 2.0 / SDEL / SDELsrc / sdel_end.c < prev    next >
Text File  |  1996-04-02  |  483b  |  38 lines
  1. /*
  2.     SDEL: Application-specific version of LIBend.c.
  3.  
  4.     source:  SDEL_end.c
  5.     started: April 2, 1996.
  6.     version: April 2, 1996.
  7. */
  8.  
  9. #include "sdel.h"
  10.  
  11. #include <LIBend.h>
  12. #include <LIBlog.h>
  13.  
  14. #include <Dialogs.h>
  15.  
  16. static bool closing = FALSE;    /* TRUE: do not call Sherlock. */
  17.  
  18. /*
  19.     Close all application files.
  20. */
  21. void
  22. end_close_all(void)
  23. {}
  24.  
  25. /*
  26.     Close all files and exit.
  27. */
  28. void
  29. end_exit(void)
  30. {
  31.     if (!closing) {
  32.         closing = TRUE;
  33.         end_close_all();
  34.     }
  35.     log_close();
  36.     ExitToShell();
  37. }
  38.